global theMode, haveseenTopTen, haveseenNews, selectedproducts, haveseenGew, haveseenBest, lastgag, haveseenaltegew
cursor(4)
set selectedproducts to list()
set lastgag to list()
set theMode to "self"
set the searchPath to list()
append(the searchPath, the pathName & "data\mgdvid\")
append(the searchPath, the pathName & "data\mgmod\")
append(the searchPath, the pathName & "data\mgtmod\")
append(the searchPath, the pathName & "data\mgzmod\")
set haveseenTopTen to 0
set haveseenNews to 0
set haveseenGew to 0
set haveseenBest to 0
set haveseenaltegew to 0
set the preloadRam to 100
put "." into field "antwort"
set footex to EMPTY
repeat with foo = 1 to 24
put " " & RETURN after footex
end repeat
put footex into field "hiliteliste"
importDB()
adjusttext()
makeProductList()
puppetSprite(47, 1)
puppetSprite(48, 1)
cursor(0)
end
on stopMovie
puppoff()
end
on adjusttext
set the textHeight of field "Hiliteliste" to 30
set the textHeight of field "Bestellscrolliste" to 30
set the textSize of field "Hiliteliste" to 12
set the textSize of field "Bestellscrolliste" to 12
end
on initbestell
global alterArtikel
put RETURN into field "Kurzinfofeld"
set alterArtikel to -1
set the puppet of sprite 15 to 1
set the puppet of sprite 17 to 1
set the puppet of sprite 18 to 1
set the puppet of sprite 20 to 1
set the puppet of sprite 30 to 1
set the puppet of sprite 32 to 1
end
on scrollerei
global alterArtikel
if the locH of sprite 47 > 600 then
if rollOver(38) then
repeat while rollOver(38)
if the locV of sprite 17 < 67 then
set the locV of sprite 18 to 1000
repeat with foo = 1 to 2
set the locV of sprite 17 to the locV of sprite 17 + 15
set the locV of sprite 15 to the locV of sprite 15 + 15
set the locV of sprite 32 to the locV of sprite 32 + 15
set fooV2 to the locV of sprite 15 + 7
if fooV2 > 121 then
set the locV of sprite 30 to 120
set the height of sprite 30 to fooV2 - 120
else
set the locV of sprite 30 to fooV2
set the height of sprite 30 to 121 - fooV2
end if
updateStage()
end repeat
end if
end repeat
set the locV of sprite 18 to the locV of sprite 17 - 2
updateStage()
else
if rollOver(39) then
repeat while rollOver(39)
if the locV of sprite 17 > -291 then
set the locV of sprite 18 to 1000
repeat with foo = 1 to 2
set the locV of sprite 17 to the locV of sprite 17 - 15
set the locV of sprite 15 to the locV of sprite 15 - 15
set the locV of sprite 32 to the locV of sprite 32 - 15
set fooV2 to the locV of sprite 15 + 7
if fooV2 > 121 then
set the locV of sprite 30 to 120
set the height of sprite 30 to fooV2 - 120
else
set the locV of sprite 30 to fooV2
set the height of sprite 30 to 121 - fooV2
end if
updateStage()
end repeat
end if
end repeat
set the locV of sprite 18 to the locV of sprite 17 - 2
updateStage()
else
set mousefoo to the mouseV
if (rollOver(14) or rollOver(15) or rollOver(17) or rollOver(18)) and ((mousefoo > 60) and (mousefoo < 420)) then
set Artikel to ((mousefoo + 7 - the locV of sprite 17) / 30) + 1
if Artikel <> alterArtikel then
set fooV to the locV of sprite 17 - 24 + (30 * Artikel)
put fooV
set fooV2 to fooV + 7
set the locV of sprite 15 to fooV
set the locV of sprite 32 to fooV2
if fooV2 > 121 then
set the locV of sprite 30 to 120
set the height of sprite 30 to fooV2 - 120
else
set the locV of sprite 30 to fooV2
set the height of sprite 30 to 121 - fooV2
end if
set noome to "pic" & string(Artikel)
set the castNum of sprite 20 to the number of cast noome
put kurzinfotext(Artikel) into field "Kurzinfofeld"
updateStage()
set alterArtikel to Artikel
end if
else
set alterArtikel to -1
end if
end if
end if
end if
end
on checkRollOver
if rollOver(19) then
ProductHilite(0)
repeat while rollOver(19)
obenscrollen()
end repeat
ProductHilite(1)
else
if rollOver(20) then
ProductHilite(0)
repeat while rollOver(20)
untenscrollen()
end repeat
ProductHilite(1)
end if
end if
end
on makeProductList
global db
set templist to getAt(db, 1)
set max to count(templist) - 1
set t to EMPTY
repeat with i = 1 to max
put getDB(2, i) & RETURN after t
end repeat
put t into field "Bestellscrolliste"
end
on stopvideo spritenum
if isItAMovie(spritenum) then
puppetSprite(spritenum, 0)
set the movieTime of sprite spritenum to 0
set the movieRate of sprite spritenum to 0
end if
end
on startVideo spritenum
if isItAMovie(spritenum) then
sound stop 1
set the movieTime of sprite spritenum to 0
set the movieRate of sprite spritenum to 1
end if
end
on isItAMovie spritenum
if the castNum of sprite spritenum > 0 then
if the castType of cast the castNum of sprite spritenum = #digitalVideo then
return 1
exit
end if
end if
return 0
end
on jump thelabelname
global theMode
cursor(4)
set distance to the frame - label(thelabelname)
if (distance < 0) or (distance > 5) then
set theMode to "inter"
end if
hideSWinfo()
puppoff()
stopvideo(2)
go(label(thelabelname))
unloadAll()
end
on unloadAll
unLoad()
end
on puppon
repeat with i = 1 to 48
puppetSprite(i, 1)
end repeat
end
on puppoff
repeat with i = 1 to 46
puppetSprite(i, 0)
end repeat
end
on doKey
put the key && charToNum(the key)
end
on testgag gagnum, lastgag
global haveseenNews, haveseenTopTen, haveseenGew, haveseenBest
if getPos(lastgag, gagnum) > 0 then
set bad to 1
end if
if (haveseenNews = 1) and (gagnum = 7) then
set bad to 1
end if
if (haveseenTopTen = 1) and (gagnum = 1) then
set bad to 1
end if
if (haveseenGew = 1) and (gagnum = 9) then
set bad to 1
end if
if (haveseenBest = 1) and (gagnum = 2) then
set bad to 1
end if
if gagnum = 5 then
set bad to 1
end if
if (count(lastgag) < 4) and ((gagnum = 7) or (gagnum = 9) or (gagnum = 1) or (gagnum = 2)) then
set bad to 1
end if
return bad
end
on importDB
global db
set theFile to FileIO(mnew, "read", the pathName & "data\swdata.inf")
if not objectp(theFile) then
alert("DB Error")
exit
end if
set dbtext to theFile(mReadFile)
theFile(mdispose)
do("set db =" & dbtext)
end
on addDB fieldNum, titleNum, theText
global db
set theList to getAt(db, fieldNum)
addAt(theList, titleNum, theText)
end
on setDB fieldNum, titleNum, theText
global db
set theList to getAt(db, fieldNum)
setAt(theList, titleNum, theText)
end
on getDB fieldNum, titleNum
global db
if count(db) >= fieldNum then
set theList to getAt(db, fieldNum)
if count(theList) >= titleNum then
return getAt(theList, titleNum)
else
return "."
end if
else
return ","
end if
end
on getSWinfoText
global progNum
set progNum to integer(progNum)
if progNum > 0 then
put "Datenblatt" && getDB(2, progNum) into field "SWinfoHead"
set t to EMPTY
if getDB(3, progNum) <> EMPTY then
put "Hersteller:" & RETURN & getDB(3, progNum) & RETURN & RETURN after t
end if
if getDB(9, progNum) <> EMPTY then
put "Hardwarevoraussetzungen:" & RETURN & getDB(9, progNum) & RETURN & RETURN after t
end if
if getDB(8, progNum) <> EMPTY then
put "Beschreibung:" & RETURN & getDB(8, progNum) & RETURN & RETURN after t
end if
if getDB(4, progNum) <> EMPTY then
put "Bestellnummer:" & RETURN & getDB(4, progNum) & RETURN & RETURN after t
end if
if getDB(5, progNum) <> EMPTY then
put "Preis (incl. MWSt.):" & RETURN & "DM " & getDB(5, progNum) & RETURN after t
end if
else
set t to "Information nicht verf├╝gbar"
end if
put t into field "SWinfo"
end
on kurzinfotext Nummer
set Nummer to integer(Nummer)
if Nummer > 0 then
set t to EMPTY
set t to getDB(2, Nummer) & RETURN
if getDB(7, Nummer) <> EMPTY then
put getDB(7, Nummer) & RETURN after t
end if
if getDB(4, Nummer) <> EMPTY then
put "Best.Nr.:" & getDB(4, Nummer) after t
end if
if getDB(5, Nummer) <> EMPTY then
put " DM " & getDB(5, Nummer) & RETURN after t
else
set t to "*"
end if
end if
return t
end
on SWinfo
if the locH of sprite 47 < 600 then
hideSWinfo()
else
showSWinfo()
end if
end
on showSWinfo
getSWinfoText()
puppetSprite(47, 1)
puppetSprite(48, 1)
if isItAMovie(2) and (the left of sprite 2 > 300) then
set the locH of sprite 47 to 25
set the locH of sprite 48 to 25
else
set the locH of sprite 47 to 300
set the locH of sprite 48 to 300
end if
updateStage()
end
on hideSWinfo
puppetSprite(47, 0)
puppetSprite(48, 0)
set the locH of sprite 47 to 642
set the locH of sprite 48 to 642
updateStage()
end
on makeOrderList
global selectedproducts
set ret to numToChar(13)
set theLine to "-------------------------------------------------------------------------------------"
set theTab to " "
if (count(selectedproducts) = 0) and (the text of field "antwort" = ".") then
beep()
exit
end if
set adr to EMPTY
repeat with i = 1 to the number of lines in field "adressen"
set adr to adr & line i of field "adressen" & ret
end repeat
set adr to adr & ret
set bestell to the date & ret & ret & "MEDIA GALLERY BESTELLFORMULAR" & ret & theLine & ret & theTab & "Ich bestelle:" & ret & ret
set t to EMPTY
repeat with i = 1 to count(selectedproducts)
set titleNum to getAt(selectedproducts, i)
set t to t & theTab & getDB(2, titleNum) & ret & theTab & theTab & getDB(4, titleNum) & " DM " & getDB(5, titleNum) & ret
end repeat
set t to t & ret
set pay to theTab & "Den Gesamtbetrag zzgl. Versandkostenpauschale " & ret & theTab & "von DM 6,90 bezahle ich " & ret & theTab & "[ ] per beigef├╝gtem Scheck" & ret & theTab & "[ ] per Nachnahme (zzgl. Nachnahmegeb├╝hr)" & ret & theTab & "[ ] Kreditkarte Nr. ....................................." & ret & theTab & " [ ] Eurocard [ ] Visacard" & ret & theTab & " g├╝ltig bis ................................. " & ret & ret
set mgsp to "DAS MEDIA-GALLERY-SUPER-PREISRÄTSEL" & ret & theLine & ret & theTab & "Wie viele Neuvorstellungen in diesem " & ret & theTab & "Monat stammen aus der Star Wars-Reihe?" & ret & theTab & "Meine Lösung ist:" & ret & ret & theTab & "> " & field "antwort" & ret & ret
set mgsp2 to "Einsendeschluß: 31.05.95" & ret & "Gültig ist das Datum des Poststempels." & ret & "Der Rechtsweg ist ausgeschlossen." & ret & "Die Teilnahme am Gewinnspiel ist von der Bestellung unabhängig." & ret
set sign to ret & "Unterschrift" & "________________________________"
set ordertext to adr & bestell & t & pay & mgsp & mgsp2 & sign
